home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 2 / Tech Arsenal 2 (Arsenal Computer).iso / clipper / s93bsp.exe / IVFORMAT.TXT < prev    next >
Encoding:
Text File  |  1992-04-02  |  3.0 KB  |  60 lines
  1. *Initialising Printer
  2. ?chr(27)+"34"+PT+chr(27)+"J"+chr(10)
  3. ?space(43)+chr(27)+"S"+chr(1) + iif(MACTYPE="C","X"," ") +chr(27)+"T"
  4. space(7)+trim(MOWNINIT)+" "+MOWNNAME+space(11-len(trim(MOWNINIT)))+iif(MACTYPE="A","X"," ")
  5. ?space(28)+chr(14)+str(MINVNO,5)+iif(NLOOPS>1,"/"+substr("ABCDEF",I,1),"")
  6. space(9)+MOWNADD1+space(4) +chr(27)+"S"+chr(1)+iif(MWORKTYPE="R","X"," ")+chr(27)+"T"
  7. space(9)+MOWNADD2+space(4) +iif(MWORKTYPE="I","X"," ")
  8. space(9)+MOWNADD3+space(4) +chr(27)+"S"+chr(0)+iif(MWORKTYPE="W","X"," ")+chr(27)+"T"
  9. space(10)+MOWNTELH+space(12)+MOWNTELB
  10. space(20)+iif(MOWNVAT,"   YES"," NO")
  11. " "+chr(27)+"3/"
  12. *Printing parts details
  13. PC+prpart()+PT+space(7)+dtoc(MDATEIN)+space(6)+dtoc(MDATEOUT)+space(7)+dtoc(MDATEINV)
  14. PC+prpart()+PT+space(11)+MAKEMODEL
  15. PC+prpart()+PT+space(11)+str(MSPEEDO,6)+space(13)+PC+replicate("    ",MFUEL)+chr(14)+"O"+PT
  16. PC+prpart()+PT+space(11)+MREGNO +space(10)+MYEAR
  17. PC+prpart()+PT+space(11)+MPAINT+space(6)+MTRIM
  18. PC+prpart()+PT+space(11)+MENGNO
  19. PC+prpart()+PT+space(11)+MCHASNO
  20. *Insurance Co details
  21. PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSCO," ")
  22. PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSADD1," ")
  23. PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSADD2," ")
  24. PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSENG," ")
  25. PC+prpart()+PT+space(11)+iif(MINSTOPAY,MINSTEL," ")
  26. PC+prpart()+PT+space(11)+MCLAIMNO
  27. PC+prpart()+PT
  28. PC+prpart()+PT
  29. PC+prpart()+PT
  30. PC+prpart()+PT
  31. *Labour details
  32. PC+prpart()+" "+PT+space(22)+MLABESTNO+space(2)+str(MLABOUR1,7,2)
  33. PC+prpart()+" "+PT+space(3)+ML2TEXT+space(3)+PRPOS(MLABOUR2,"9999.99")
  34. PC+prpart()+" "+PT+space(3)+ML3TEXT+space(3)+PRPOS(MLABOUR3,"9999.99")
  35. PC+prpart()+" "+PT+space(3)+ML4TEXT+space(3)+PRPOS(MLABOUR4,"9999.99")
  36. PC+prpart()+" "+PT+space(36)+str(MLABOURT,7,2)
  37. PC+prpart()+PT
  38. PC+prpart()+PT
  39. *Account summary
  40. PC+prpart()+PT+space(25)+PRPOS(MINSLAB,"9999.99")+space(5)+prpos(MOWNLAB,"9999.99")
  41. PC+prpart()+PT+space(25)+PRPOS(MINSPART,"9999.99")+space(5)+PRPOS(MOWNPART,"9999.99")
  42. PC+prpart()+PT+space(25)+PRPOS(MINSSPEC,"9999.99")+space(5)+PRPOS(MOWNSPEC,"9999.99")
  43. PC+prpart()+PT
  44. PC+prpart()+PT
  45. PC+prpart()+PT
  46. PC+prpart()+PT
  47. PC+prpart()+PT+space(25)+PRPOS(MINSAMT,"9999.99")+space(5)+PRPOS(MOWNAMT,"9999.99")
  48. PC+prpart()+PT+space(18)+PRPOS(MPARTDISC,"99")+space(5)+PRPOS(IPDSCNT,"9999.99")+space(5)+prpos(OPDSCNT,"9999.99")
  49. PC+prpart()+PT+space(25)+PRPOS(ISUBTOT,"9999.99")+space(5)+PRPOS(OSUBTOT,"9999.99")
  50. *Vat Amounts Now!
  51. PC+prpart()+PT+space(8)+PRPOS(MVATRATE,"99.99")+space(12)+PRPOS(IVATAMT,"9999.99")+space(5)+PRPOS(OVATAMT,"9999.99")
  52. PC+prpart()+PT+space(25)+PRPOS(INSSUB,"9999.99")+space(5)+PRPOS(OWNSUB,"9999.99")
  53. PC+prpart()+PT+space(16)+PRPOS(MEXCESS,"9999.99")+space(14)+iif(MINSTOPAY,PRPOS(MEXCESS,"9999.99"),"")
  54. PC+space(PARTPLEN)+PT+space(16)+PRPOS(MCONTRIB,"9999.99")+space(14)+iif(MINSTOPAY,PRPOS(MCONTRIB,"9999.99"),"")+PT
  55. *Totals
  56. PC+space(PARTPLEN)+PT+space(25)+PRPOS(MINSDUE,"9999.99")
  57. PC+space(PARTPLEN)+PT+space(37)+PRPOS(MOWNDUE,"9999.99")
  58. PC+space(PARTPLEN)+PT+space(37)+PRPOS(MINVTOTAL,"9999.99")
  59. chr(18)
  60.